%in%の否定に!は使えなかったので調べたらNegate関数を使って定義するみたい。
%in%
!
Negate
"%not.in%" <- Negate("%in%")
1:5 %in% c(1,2,3)
## [1] TRUE TRUE TRUE FALSE FALSE
1:5 %not.in% c(1,2,3)
## [1] FALSE FALSE FALSE TRUE TRUE